home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / ques_221.zip / SAMPLES.ZIP / DEMOS.ZIP / TIME.Q-A < prev   
Text File  |  1990-07-04  |  1KB  |  68 lines
  1. clearscreen
  2.  
  3. :hoofd
  4. clearscreen
  5. changecolor 4
  6. display "|"
  7. display "Your time left: "
  8. listtimeleft
  9. display "|"
  10. display "|"
  11. changecolor 14
  12. display "   < 1 >   Increase timeleft with 1 min.|"
  13. display "   < 2 >   Decrease timeleft with 1 min.|"
  14. display "   < 3 >   Increase timeleft with 10 min.|"
  15. display "   < 4 >   Decrease timeleft with 10 min.|"
  16. display "   < ! >   Return to bbs|"  
  17. display "|"
  18. changecolor 4
  19. display "Command: "
  20. getchar 1
  21. :
  22.  
  23. if 1 = "1"
  24. settime +1
  25. gotolabel hoofd
  26. endif
  27.  
  28. if 1 = "2"
  29. settime -1
  30. gotolabel hoofd
  31. endif
  32.  
  33. if 1 = "3"
  34. settime +10
  35. gotolabel hoofd
  36. endif
  37.  
  38. if 1 = "4"
  39. settime -10
  40. gotolabel hoofd
  41. endif
  42.  
  43. if 1 = "!"
  44. display "|"
  45. display "|"
  46. display "Nice of you to try out this small door...|"
  47. display "This door was made with Quesdoor; the Extended Questionaire Language !|"
  48. display "|"
  49. display "Press <ENTER>"
  50. Ask 0 3
  51. clearscreen
  52. delete time.asw
  53. changecolor 15
  54. quit
  55. endif
  56.  
  57.  
  58. ifnot 1 = "!"
  59. display "|"
  60. display "|"
  61. display "Unknown Option....|"
  62. display "|"
  63. display "Press <ENTER>"
  64. Ask 0 3
  65. gotolabel hoofd
  66. endnotif
  67.  
  68.